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'® 
'e COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
te DIGITAL EQUIPMENT €ORPORATION, MAYNARD, MASSACHUSETTS. 


'® ALL RIGHTS RESERVED. 
ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY B 
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:* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
i. CORPORAT ioe NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


i DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
*# SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


oooo 
OoOoOoooooO 


rte} 


00 ; 
i] 
09 | cedeeakieeinebinadinandibeanaaaniatineniinaiiaiinadmnnatintaiviaiensueneieebaiett 
00 !+¢ 
00 ! 
0084 } FACILITY: FI11ACP Structure Level 1 
035 1 | ABSTRACT: 
B036 ! 
003 : This routine performs a find operation on the indicated directory. 
i ENVIRONMENT: 


STARLET operating system, including privileged system services 
and internal exec routines. 
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§ 5 : Include the FIB in the MAKE_NAMEBLOCK routine call. 
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5 008 Make UPDATE_DIRSEQ global 
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: Previous revision history moved to F11A.REV 


cuRWARD ROUTINE 
UPDATE _DIRSEQ; 
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GLOBAL ROUTINE FIND (ABD, FIB, REMOVE) : NOVALUE = 


nx 


lee 
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i FUNCTIONAL DESCRIPTION: 


This routine performs a FIND operation on the indicated directory. 


CALLING Se yt 
FIND (ARG1, ARG2, ARG3) 


00000 
VFwn— 


INPUT peowne Tones 
ARG1: address of t fygertotor List in buffer packet 


! space for result string 


3 1 

3 1 

; 1 

3 1 

: 1: 

: 1: 

; 1: 

: 1! 

; 1} 

; 1} 

; 1} 

; 1! 

; 1} 

3 1 ARG ddress o 

3 39 1 Anes: 6 to just ‘a3 find 

: o? 0 a8 : to remove the found entry 

: 87 04 1 | IMPLICIT INPUTS: 

; 8 0491 1 i ate 

; acs 1 ! OUTPUT PARAMETERS: 

3 4! Bebe : ARG2: file ID and context returned in FIB 

as BeRs 1 ! IMPLICIT OUTPUTS: 

: Be 4 4 ; : DIR_RECORD: record number of found directory entry 

3 96 0409 1 ! ROUTINE VALUE: 

: 3h ayy i _— 

; WW r16 1 ! SIDE EFFECTS: 

: 100 1 1! Directory LRU may be altered 

; 101 414 1! directory blocks read 

3 Ie 613 7} 

2. gh 

: 105 + BEGIN 

: 108 420 5 MAP 

: 108 1 ABD : REF BBLOCKVECTOR C,ABDSC_LENGTH], 

: 109 § ' descriptor list arg 

3 139 FIB : REF BBLOCK; i FB. argument 

4 11g 5 LOCAL 

; (11 4 $ NAMEBLOCK : BBLOCK CHRBSC LENGTH 

> 114 4 6 name block 

s 115 4 3 OLD_NAMEBLOCK =: BBLOCK CNMBSC “LENGTH. 

oS another RAD-50 name block 
:; 11 0 COMPLEX, ! complex operation flag 
eb 1 SAVED_F (acs, ! original flag bits for operation 
; 11 § SAVED” CONTEXT, i record number of first occurrence 
3 ' Z STRING : VECTOR (20, BYTE), 

2S 5 COUN : count of name stri ng 
4 COE INGP, address of name string 
; ' ; RECADDR : REF BBLOCK; pointer to found direttery entry 
; 1 04 
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CLEANUP_FLAGS : BITVECTOR, cleanup action frags 
DIR_RECORD, re ord number of directory entry 
SUPER_F ID : BBLOCK; file ID of superseded/deleted file 
EXTERNAL ROUTINE 

_START_SUB, ! start subfunction metering 
PMS-END_SOB, ' end subfunct on meterin 

Y E ! copy file name to result string 
DIR_ACCESS, ! access the director 

' construct name bloc 


! search the directory 

' convert directory entry to string 
' return data to buffer packet 

! write directory record 


MAKE_STRING, 
RETURN_DIR, 
DIRPUT: 


re 
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: Start metering for this subfunction. 


PMS_START_SJB (PMS_FIND); 


! If this is an operation on a spooled device, noop it and return a file ID 
: of -2, -2 with success. 


If _ .CLEANUP_FLAGSCCLF _SPOOLF ILE) 
THEN 


ID_NUM] = mf 

ID_SEQ) = =2; 

ID_RVN] = 0; 
(TOPY_NAME, .ABD); 


E 
nd the name string in the buffer pecker. Construct the RAD-50 name block 
om it and the other data in the FIB. 


COUNT = .ABDCABDSC_NAME, ABDSW_ COUNT]; 
STRINGP = .ABDCABDSC_NAME, ABDSW_TEXT) + ABDCABDSC_NAME, ABDSW_TEXT] + 1; 


MAKE _NAMEBLOCK (.FI8, .COUNT, .STRINGP, NAMEBLOCK); 
CHSMOVE (FIBSS FID £18 FIBSW_FIDJ, NAMEBLOCKCNMBSW_FID}); 
RAMEBLOCKCNMBS@_FLAGS] = :NAMEBLOCKENAB FLAGS] OR™.FIBCFIGSW_NMCTLI; 
NAMEBLOCKCNMBSW- CONTEXT) = .FIBLFIBSL_WCCI; 


! Determine if this is a complex operation (wild card name, default version). 
H If so, set up the required parameters. 


COMPLEX = 0; 
IF (.NAMEBLOCKCNMBSV_ALLNAM] OR_.NAMEBLOCKCNMBSV_ALLTYP)) 
AND NOT eben NABSV mLyee 

AND .NAMEBLOCKENMBSW_VERSION) EQL 0 
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COMPLEX = 1; 
NAMEBLOCKCNMBSV_ALLVER] = 1 
SAVED _FLAGS = .RAMEBLOCKCNMBSW_FLAGS); 


H Access the directory. We need write access if this is a REMOVE. 


DIR_ACCESS (.FIB, REMOVE); 


! If this is a wild card operation (i.e., if the wil 
position to the indicated record. This is done wit 


4 card context is nonzero), 
| and the supplied resultant name string, if any. 


the positional context 


If .FIBCFIBSL_WCC] NEQ 0 
THEN 


BEGIN 
COUNT = MINU (.ABDCABDSC_RES, ABDSW_COUNT], 
F .ABDCABDS$C_RESL, ABD$W COUNT] GEQU 2 
THEN .(ABDCABDSC_RESL, ABDSW_TEXT] + 
-ABDCABDSC-RESL, ABDSW-TEXT) + 1)<0,16> 
ELSE 0 
IF .COUNT NEQ 6 


THEN 


STRINGP = ABDLABDSC RES, ABDS$W_TEXT] + ABDCABDSC_RES, ABDSW_TEXT] + 1; 
( COUNT ~STRINGP, OLD_NAMEBLOCR) ; 


NMBSV W 
THEN ERR_EXIT (SS$_BADFILENAME); 
OLD_NAMEBLOCKCNMBSO CONTEXT] = .FIBCFIBSL_ WCC) - 1; 
IF [COMPLEX THEN OLB_NAMEBLOCKCNMBSV_ALLVER) = 1; 


IF DIR_SCAN (OLD_NAMEBLOCK, 0) EQL 0 
THEN 


BEGIN 
OLD_NAMEBLOCKC(NMBSW_CONTEXT) = 0; 

IF BIR SCAN (OLD NAREBLOCK, 0) NEQ 0 

THEN NAMEBLOCKCNABSW_CONTEXT) = .DIR_RECORD; 
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ELSE 
- NAMEBLOCKCNMBSW_CONTEXT] = .DIR_RECORD; 


! Now search the directory. it 


s is a complex operation, we may 
; loop several times before fin 


thi 
ding a suitable entry. 
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RECADDR = DIR_SCAN (NAMEBLOCK, 0); 
IF .RECADDR EGL 0 
16st wee) EQ. 0 

EXIT (SS$_NOSUCHF ILE) 


! if not found 
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=, ' save record number found 
OMPLEX T hat 


oop; i for simple Lookups t 


Fes 
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s all 


omplex operation. We have now found some occurrence of the desired 
earch from the — of the directory for the first occurring 
on of this entry. If it precedes the one found, then we have already 

it on a previous call, so try from the start fo 
Llows the one found, we are in trouble. 


4 

4 
CHSMOVE (NMBSC_DIRENTRY-2, .RECADDR, NAMEBLOCK); 
NAMEBLOCK(NMBSQ_FLAGS] = NMBSM_ALLVER; 
RECADDR = DIR_SCAN (NAMEBLOCK 

4 

4 

4 

4 

4 
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NAMEBLOCKCNMBSW_CONTEXT] = 0; ~ 
0); 

IF .RECADDR EGL 0 OR .DIR_RECORD GTRU .SAVED_CONTEXT 
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THEN ERR_EXIT (SS$_BADIRECTORY); 


If the entry found on the second scan is the same as the first, then this is 
a first occurrence. Now scan the remainder of the directory for the latest 
version of this occurrence. We will return the latest version entry to 

the caller, but the context of the first occurrence found. 
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IF .DIR_RECORD EQL .SAVED_CONTEXT 
THEN 


Von oro 


SS SSCL LOLI Sasa 


0: 
NAMEBLOCKLNMBSW_CONTEXT) = at stam - 1; 
RECADDR = DIR_SCAN (NAMEBLOCK, 0); 

IF .RECADDR EGL 

ater (DIRENTRY, FATAL, ‘ACP failed to find same directory entry"); 


! This was a duplicate. Restore the original flags and continue the basic 
' scan from where we left off. 


NAMEBLOCKCNMBSW_FLAGS] = .SAVED_FLAGS; 
NAMEBLOCKENMBSW-CONTEXT) = .SAVED_CONTEXT; 
END; ! end of directory scan loop 


' Now convert the resulting ervostary entry into the ASCII resultant string. 
° 


: Return this and the record number the buffer packet. 


FID, RECADDRCNMBSW_FID), FIBCFIBSW_FIDJ); 
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_ 0 


COUNT’ = MAKE_STRING (.RECADDR, STRING); 
COUNT _CALL TRETURN_DIR, .COUNT, STRING, .ABD); 


I: 
I: 
I: 
Y: 
Y: 
4 
4 
6 


@ remove o operation is poqueates o 9 a A siaply 2fereing the file number 
sed of the rectory snort, and writ t bac e that we save the 
removed FID for rope acemen ase er Ri "error 

bump the sequence count 


' 
i 
i 
i if the entry being removed is of the form xxx.DIR; 
n the UCB to invalidate RMS caches. 


res - REMOVE 


"SESIN (F 1B$S ie wer FID] ,SUPER_FID); 
fr a wet W FID 


DAD? 
CLEANUP _FLAGS CLF * REENTER) = 1; 
If eo bt NMBSW_ yeti EQL ZRADSO_11 ‘DIR' 


AND .RECADDRINMBSWVERSION) EQL 1 
THEN KERNELS CALL (OPDATE_DIRSEQ); 


MEW $C ODN NEW OWODVNAUNEF ni 


Stop metering of this subfunction 


PMS_END_SUB (); 
END; ! end of routine FIND 
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-TITLE FIND 
-IDENT \V04~000\ 


.EXTRN CLEANUP_FLAGS DIR RECORD 
SEXTRN SUPER FID, PMS SUB 


1 
RETORN DIR, 
SYSSCMRRNL, pies _DIRENTRY 


-PSECT SCODES,NOWRT,2 


OFFC 000 ENTRY at Save gf? R3,R4,R5,R6,R7.RB,R9,R10,R11 ; 0383 

SE 9C AE 9E MOVAB 00(sP ; 
0 DD PUSHL > 0459 

00006 CF 1 F CALLS PMS_START_SUB F 
00006 cf ? ists c EANUP~FLAGS™ > 0465 
5 08 AC OD 1 MOVL > 0468 

04 Hi FFFEFFFE BF D 1 MOVL #68588, 4(RO) ; 
AO 8B 1F CLRW = B (RO) + 0470 
AC DD $2 PUSHL : 0471 

01 ODD x 3 
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16-Sep-1 06:49 VAX-11 Bliss-32 V4.0-742 Page 
1 =3007 138 94 395798 DISKSVMSMASTER:CFIIA.SRCIJFIND.B32:;1 8 
SE DD 7 PUSHL 
00006 CF 8? PUSHAB COPY_NAME : 
000000006 9F 66 Fe D CALLS #4, GASYSSCMKRNL Paaal 
§ 04 ac D 1$ mova D, R6 : 7 9 
; a6 3C MOVZWL 1 (Ro), COUNT : 
1 10 Aad 9€ MOVAB 16(R6), R1 + 0480 
0 61 3€ 0004 MOVZWL (R11) 0 : 
91 A140 9€ 4 MOVAB  1(R1SCROJ, STRINGP : 
C Ar F 0004 PUSHAB NAMEBLOCK + 0482 
DD 0004 PUSHL STRINGP : 
0280 8F BB PUSHR #*M<R7,R9> : 
00906 CF 4 F CALLS #4, make NAMEBLOC ; 
3C AE A? $ 2 ve a6 AR J, NAMEBLOCK + 0483 
46 AE 16 AZ OA BISW é (R7), NAMEBLOCK+1 + 0484 
62 AE 10 a7? B VW 6(R7), NAMEBLOCK+3 + 0485 
A 04 CLRL COMPLEX + 0491 
95 4C AE 5 EO BBS #5, NAMEBLOCK4+16, 2$ + 0492 
1 4C OAL 4 € BBC #4, NAMEBLOCK+16, 3$ ; 
10 4C AE 3 €£ 2s: BBS #3, NAMEBLOCK+16, 3$ + 0493 
4A AE 8 TSTW  NAMEBLOCK4+14 7 0494 
0B BNEQ 3$ ; 
SA 1 MOVL #1, COMPLEX + 0497 
4C AE 8 BISB2 #8, NAMEBLOCK+16 + 0498 
58 4C AE 3C MOVZ2WL NAMEBLOCK*16, SAVED_FLAGS + 0499 
OC AC dD 3$ PUSHL REMOVE + 0505 
57 DD PUSHL R 3 
00006 CF 02 F CALLS #2 DIR_ACCESS ; 
10 aA? D TSTL 16(R7) : 0512 
7F 1 BEQL 108 ; 
02 1A 6 81 CMPW = - 26 (R6),, #2 : 0516 
OD iF BLSSU 4$ ; 
50 18 A6 3C MOVZWL 34 (RG) RO : 0518 
19 A046 OF PUSHAB 25(RO)(R6) : 0517 
50 9 ¢ MOVZWL a(SP)+, RO F 
Q i BRB 5 ; 
p4 4$: CLRL = RO : 0516 
51 22 a6 3C 5$: MOVZWL 34(R6), R1 ; 
50 1 01 CMPL R171, RO : 
3 1 BLEQU 6$ ; 
51 D MOVL RO, R1 : 
59 1 p R 6: VL —sR1, COUNT : 0515 
9 BEQL 19 : o5¢4 
1 20 As ; VAB (R6), RI > 0524 
9 6 MOVZWL (R1), & : 
01 A140 9€ VAB_  1(R1SCROJ, STRINGP ; 
14 AE OF PUSHAB OLD_NAMEBLOCK : 0525 
DD PUSHL STRINGP : 
DD PUSHL COUNT ; 
00006 CF ant SeRe  k RAKE. NAMEBLOCK : 
65 25 AE E BLBC O46 WAMEBLOCKSi 2. 7$ : 0536 
0818 8F Bf CHAU #2072 : 05 
50 08 ac OD 7$: MOVL £18. RO : 0528 
3A OA 10 Ao 1 A SUBW3 «#1, 16(RO), OLD_NAMEBLOCK+38 : 
04 AE BLBC COMPLEX, 8$ : 0529 
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00006 gf 
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4 VAX-11 Bliss-32 V4.0-742 Page 9 
071 38e 9}: 93; 3 DISKSVMSMASTER: att Ske arin. 32:1” (2) 
BISB2 #8, OLD_NAMEBLOCK+16 : 
CLAL (§p) + 0531 
PUSHAB 0 D_NAMEBLOCK : 
ALLS » DIR_SCAN : 
STL 4 : 
BNEQ 9 : 
CLRW OLD_NAMEBLOCK+38 : 0534 
CLRL = = (SP + 0535 
PUSHAB OLD_NAMEBLOCK : 
CALLS #2, DIR_SCAN : 
TSTL =O : 
BEQL 108 : 
MOVW DIR_RECORD, NAMEBLOCK+38 + 0539 
CLRL = =( SP) + 0549 
PUSHAB NAMEBLOCK ; 
CALLS #2, DIR_SCAN : 
MOVL RO, RECADDR : 
BNEG = 12 + 0550 
MOVL IB, RO + 0552 
TSTL  16(RO) : 
BNEQ «118 : 
CHMU #2320 ; 0553 
CERL (16CROD + 0333 
CHMU 13389 ; §289 
RET 3 3233 
MOVL § DIR_RECORD, SAVED_CONTEXT : 6559 
BLEC_ COMPLEX : 0560 
MOVC3 #14, ( CRECADDR) NAMEBLOCK : 0569 
Vw #8, NAMEBL LOCKS K+16 : 0570 
CLRW NAMEBLOCK+ : 0571 
CLRL = = (SP) : 0573 
PUSHAB NAMEBLOCK : 
CALLS #2, DIR_SCAN : 
MOVL RO, RECADOR : 
BEQL «138 + 0574 
CMPL DIR_RECORD, SAVED_CONTEXT : 
BLEQU 14$ : 
CHAU #2088 : 0575 
BNEQ 15% : 0583 
CLRW  NAMEBLOCK+16 : 0586 
SUBW3 #1, SAVED_CONTEXT, NAMEBLOCK+38 : 0587 
CLRL. 0s = §P) : 0588 
PUSHAB NAMEBLOCK ; 
rant’ RS RECON | 
BNEG -'16$ : 0589 
BUGW ; 0590 
«WORD <ByGs_ DIRENTRY! 4> ; 
BRE : 
MOVW § SAVED_FLAGS, NAMEBLOCK+16 ; 
MOVW sagt CONTEXT, NAMEBLOCK+38 ; 
BRB 0$ : 0547 
MOVES Ab RE (RECADDR), 4(R7) eees 
BLBS {r7), 1 : 0609 
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000000006 9 6 
“RECADDRD SUPER_F ID 


0000G CF és 


So008 EE » ‘ 
1424 ECADDR), 
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5g. ETE ANUP FLAGS+2 
a 16976 
{RECADDR) , rT 
E 
5E S 
0000v CF PUSHAB UPDATE DIRSEQ 
03 CALLS aisy SSCMKRNL 


000000006 9F 
CF #0, P S_END_SUB 
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; Routine Size: 517 bytes, Routine Base: S$CODE$ + 0000 


en 


FAY 000 yb-Beortges 01:04:49 vated BLies=8z v4.0074 


GLOBAL ROUTINE UPDATE_DIRSEQ = 


'e¢ 
+ 


FUNCTIONAL DESCRIPTION: 


This routine bumps the directory sequence count in the UCB to invalidate 
RMS directory caches on the volume. 


CALLING SEQUENCE: 
UPDATE _DIRSEQ () 


i 

i 

i 

i 

i 

i 

i 

i INPUT PARAMETERS: 

NONE 

i IMPLICIT INPUTS: 

CURRENT_UCB: UCB of device in use 
i OUTPUT PARAMETERS: 
NONE 
i 

i 

i 

i 

i 

i 

i 

i 

i 
ie 


oO 
DUP 


WR =O OBNA UNE UM (OVOONOAULS UN 


IMPLICIT OUTPUTS: 
directory sequence count incremented 


acta | VALUE : 


S3Eze 


PAAR AIT 
WONAVEWUN $C OONAUSWN ("OVDONOULSWN—O 


SIDE EFFECTS: 
NONE 


BEGIN 


EXTERNAL 
CURRENT _UCB 


Seeseeere 


OONOUS WN — 


: REF BBLOCK; ! UCB of device 


~“ 


CURRENT _UCBCUCBSW_DIRSEQ) = .CURRENT_UCBCUCBSW_DIRSEQ) + 1; 


o oS 
wn—o ase 
LIP IF IPI III III a a dk i i dd 


0 8 
1 37 RETURN 1; 
§ 5 END; ! end of routine UPDATE_DIRSEQ 
.EXTRN CURRENT_UCB 
0008 ° ENTRY UPDATE _DIRSEQ, Save nothing 
50 0006 CF D MOVL CURRENT UCB, RO 
OAC ‘0 B INCW a 
50 MOVL ° 
Routine Size: 15 bytes, Routine Base: S$CODE$ + 0205 
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CIF IND.832;1 ) 


v4 


FIND 16-Sep-19 VAX=11 BLiss-32_V4.0-742 
VOer000 1§-ep-1984 Fog ty  WeddmtalSfencchtikceneaeino.e32.1 2% (4S 


eee 
~~ 
wi 

Sse 
= 


END 
0 ELUDOM 


PSECT SUMMARY 
3 Name Bytes Attributes 
: SCODES 532 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 


Library Statistics 


; quncesnas SyGhel§ cooecere Pages Processing 
: File Total Loaded Percent Mapped Time 

: -$255$DUA28: CSYSLIBILIB.L32;1 18619 33 0 1000 00:01.9 
3 COMMAND QUALIFIERS 

; BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:F IND/OBJ=OBJ$:F IND MSRCS$:F IND/UPDATE=(ENHS$:F IND) 
: iL 532 sede ¢ + 0 data bytes 

: clasced. Time: 244, ; 

3 Lines/CPU Min: 84 

3 gonenee lames 15949 

; Memor ry Us : 195 pages 

3; Compi otten Complete 
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